home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a20.bas < prev    next >
BASIC Source File  |  1993-11-30  |  1KB  |  38 lines

  1. 1000 'A20.BAS***************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 0:WINDOW(0,0)-(640,480):CLS
  3. 1020 L=1000:PI=3.14159!
  4. 1030 A$="☆☆☆ SIN*COSカーブ上に接線を書き重ねています。 ☆☆☆"
  5. 1040 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
  6. 1050 T1=TIME:S=0 
  7. 1060 '
  8. 1070 C=4:T=0:TT=180:GOSUB *MAIN
  9. 1080 C=6:T=180:TT=360:GOSUB *MAIN
  10. 1090 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒  描いた接線の数--";S;"本" 
  11. 1100 WAIT 100
  12. 1110 LOCATE 5,1:PRINT SPACE$(60):T1=TIME
  13. 1120 C=0:T=0:TT=360:GOSUB *MAIN
  14. 1130 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "消すのに要した時間--";T;"秒。                       " 
  15. 1140 WAIT 100:GOTO 1360
  16. 1150 '
  17. 1160 *MAIN
  18. 1170 FOR J=T TO TT STEP 5
  19. 1180   I=0
  20. 1190   GOSUB *CALK
  21. 1200   POINT (X,Y)
  22. 1210   FOR I=0 TO 360 STEP 120
  23. 1220     GOSUB *CALK
  24. 1230     LINE -(X,Y),PSET,C
  25. 1240   NEXT I
  26. 1250   S=S+1
  27. 1260 NEXT J
  28. 1270 RETURN
  29. 1280 '
  30. 1290 *CALK
  31. 1300  P =I/180*PI
  32. 1310  PP=J/180*PI
  33. 1320  A=400+0*COS(P)+L
  34. 1330  X=330+(15+200*COS(PP)+140*SIN(P)*SIN(PP))*L/A
  35. 1340  Y=220-(250*SIN(P)*COS(PP))*L/A
  36. 1350 RETURN
  37. 1360 '
  38.